-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy path4.1.11 (e x)^m (a+b x^n)^p sin.nb
More file actions
5311 lines (5199 loc) · 258 KB
/
4.1.11 (e x)^m (a+b x^n)^p sin.nb
File metadata and controls
5311 lines (5199 loc) · 258 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 258884, 5302]
NotebookOptionsPosition[ 252392, 5129]
NotebookOutlinePosition[ 254143, 5183]
CellTagsIndexPosition[ 254100, 5180]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
StyleBox[
RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
FontFamily->"Arial",
FontSize->16]], "None"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}],
FontSize->16]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9,
3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9,
3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9,
3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9,
3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9},
3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9},
3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
3.575849275424359*^9, 3.57584927603436*^9}, {3.5758493222644243`*^9,
3.5758493249844284`*^9}, 3.5758494042945395`*^9, 3.6735684665235987`*^9,
3.6740561511462793`*^9, 3.6862447959560237`*^9, 3.686249288966009*^9},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{Cell[TextData[StyleBox["1:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{"p", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]],
"None"]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9},
3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9,
3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9,
3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9,
3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9,
3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9,
3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9,
3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9,
3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9,
3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9,
3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9,
3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9,
3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9,
3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9,
3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9,
3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9,
3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9,
3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9,
3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9,
3.674240830018931*^9}, {3.6742428103480234`*^9, 3.6742428376480627`*^9},
3.6742490420000324`*^9, {3.674252561790264*^9, 3.6742525837435026`*^9}, {
3.6742545123883486`*^9, 3.6742545280819764`*^9}, {3.674254570626251*^9,
3.674254576150661*^9}, {3.6742571845043764`*^9, 3.6742572170822334`*^9}, {
3.674259083173966*^9, 3.6742591071084085`*^9}, 3.6742752673409233`*^9, {
3.6744479948832116`*^9, 3.6744480044304285`*^9}, {3.674449485912306*^9,
3.6744494861803207`*^9}, {3.674450006388075*^9, 3.674450081605377*^9},
3.6862460432483644`*^9, {3.6862472572518015`*^9, 3.6862472572518015`*^9}, {
3.686247525854165*^9, 3.6862475342476454`*^9}, {3.686248248849518*^9,
3.686248278268201*^9}, {3.686248354219545*^9, 3.686248356082651*^9},
3.686248567658753*^9, {3.6862493222359123`*^9, 3.686249328883292*^9}, {
3.686249401884468*^9, 3.6862494100439343`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell["Derivation: Algebraic expansion", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9,
3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9},
3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9},
3.6742405200764894`*^9, {3.6862460707699385`*^9, 3.686246074048126*^9}, {
3.6862494149842167`*^9, 3.6862494187174306`*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{"p", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9,
3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9,
3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9,
3.6741706099872017`*^9}, {3.6741722516711006`*^9,
3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9,
3.674240834178937*^9}, {3.6742525970055265`*^9, 3.6742525970055265`*^9}, {
3.6742545927354903`*^9, 3.6742545927354903`*^9}, {3.6742572239774456`*^9,
3.6742572239774456`*^9}, {3.6742591349116573`*^9,
3.6742591349116573`*^9}, {3.674450086566661*^9, 3.674450086566661*^9}, {
3.6862472146613655`*^9, 3.6862472374746704`*^9}, {3.68624770496941*^9,
3.68624770496941*^9}, {3.686248365541192*^9, 3.686248365541192*^9}, {
3.686249551159006*^9, 3.686249551159006*^9}}],
Cell[BoxData[
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
RowBox[{"\[Integral]",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}], " ",
RowBox[{"ExpandIntegrand", "[",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], ",", "x"}], "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9,
3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9,
3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9},
3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9,
3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9,
3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9},
3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9,
3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9,
3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9,
3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9,
3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9,
3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9,
3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9,
3.674240907117041*^9}, {3.6742546069003153`*^9, 3.674254697031674*^9},
3.674257261715912*^9, {3.674275269431327*^9, 3.6742752708821297`*^9}, {
3.6744480052416296`*^9, 3.674448006162031*^9}, {3.6862460513448277`*^9,
3.686246061129388*^9}, 3.6862475576519833`*^9, {3.6862476357874527`*^9,
3.6862476590187817`*^9}, {3.686247796781661*^9, 3.68624780812531*^9}, {
3.6862494869343324`*^9, 3.686249531720894*^9}},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"a_", "+",
RowBox[{"b_.", "*",
RowBox[{"x_", "^", "n_"}]}]}], ")"}], "^", "p_."}], "*",
RowBox[{"Sin", "[",
RowBox[{"c_.", "+",
RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
"\n", " ",
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{"ExpandIntegrand", "[",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*",
RowBox[{"x", "^", "n"}]}]}], ")"}], "^", "p"}], ",", "x"}], "]"}],
",", "x"}], "]"}], " ", "/;", "\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",",
"x"}], "]"}], " ", "&&", " ",
RowBox[{"IGtQ", "[",
RowBox[{"p", ",", "0"}], "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9,
3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9},
3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9,
3.4980733779913597`*^9}, {3.5154687911209655`*^9,
3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9,
3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9,
3.5635772275425625`*^9}, {3.6730388763098516`*^9,
3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9,
3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9,
3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9},
3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9},
3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9,
3.6742393697004995`*^9}, {3.6742410365572295`*^9,
3.6742410592982645`*^9}, {3.6742526075209446`*^9, 3.674252612746954*^9},
3.6742529649137745`*^9, 3.674254739655949*^9, {3.6742548322759156`*^9,
3.6742548348675203`*^9}, 3.6742548749353905`*^9, {3.6742562486978207`*^9,
3.674256252817629*^9}, {3.6742572362878675`*^9, 3.67425724906429*^9},
3.674257291374564*^9, 3.6742575902732964`*^9, {3.6742591391860647`*^9,
3.674259139404465*^9}, {3.6742752726293325`*^9, 3.674275275016137*^9}, {
3.674448006739232*^9, 3.6744480079560347`*^9}, {3.674448658651989*^9,
3.674448658856001*^9}, {3.6744493968792133`*^9, 3.674449441498765*^9}, {
3.6862465325743523`*^9, 3.686246620240367*^9}, 3.6862467326997995`*^9, {
3.686247012472801*^9, 3.686247049324909*^9}, {3.686247149960665*^9,
3.6862471739020343`*^9}, {3.6862479714176497`*^9, 3.686247977107975*^9}, {
3.6862480347852745`*^9, 3.6862480386434946`*^9}, {3.68624817055704*^9,
3.6862482014168053`*^9}, {3.686248288821804*^9, 3.686248333492359*^9}, {
3.6862496312455864`*^9, 3.686249655558977*^9}, {3.6862510944142747`*^9,
3.6862510994595633`*^9}, 3.6862565813614416`*^9, 3.686262319426218*^9,
3.715370645877942*^9},
Background->GrayLevel[0.85]],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"a_", "+",
RowBox[{"b_.", "*",
RowBox[{"x_", "^", "n_"}]}]}], ")"}], "^", "p_."}], "*",
RowBox[{"Cos", "[",
RowBox[{"c_.", "+",
RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
"\n", " ",
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{"ExpandIntegrand", "[",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*",
RowBox[{"x", "^", "n"}]}]}], ")"}], "^", "p"}], ",", "x"}], "]"}],
",", "x"}], "]"}], " ", "/;", "\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",",
"x"}], "]"}], " ", "&&", " ",
RowBox[{"IGtQ", "[",
RowBox[{"p", ",", "0"}], "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9,
3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9},
3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9,
3.4980733779913597`*^9}, {3.5154687911209655`*^9,
3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9,
3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9,
3.5635772275425625`*^9}, {3.6730388763098516`*^9,
3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9,
3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9,
3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9},
3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9},
3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9,
3.6742393697004995`*^9}, {3.6742410365572295`*^9,
3.6742410592982645`*^9}, {3.6742526075209446`*^9, 3.674252612746954*^9},
3.6742529649137745`*^9, 3.674254739655949*^9, {3.6742548322759156`*^9,
3.6742548348675203`*^9}, 3.6742548749353905`*^9, {3.6742562486978207`*^9,
3.674256252817629*^9}, {3.6742572362878675`*^9, 3.67425724906429*^9},
3.674257291374564*^9, 3.6742575902732964`*^9, {3.6742591391860647`*^9,
3.674259139404465*^9}, {3.6742752726293325`*^9, 3.674275275016137*^9}, {
3.674448006739232*^9, 3.6744480079560347`*^9}, {3.674448658651989*^9,
3.674448658856001*^9}, {3.6744493968792133`*^9, 3.674449441498765*^9}, {
3.6862465325743523`*^9, 3.686246620240367*^9}, 3.6862467326997995`*^9, {
3.686247012472801*^9, 3.686247049324909*^9}, {3.686247149960665*^9,
3.6862471739020343`*^9}, {3.6862479714176497`*^9, 3.686247977107975*^9}, {
3.6862480347852745`*^9, 3.6862480386434946`*^9}, {3.68624817055704*^9,
3.6862482014168053`*^9}, {3.686248288821804*^9, 3.686248333492359*^9}, {
3.6862496312455864`*^9, 3.686249655558977*^9}, {3.6862496897809343`*^9,
3.686249696048293*^9}, {3.686251105135888*^9, 3.686251108528082*^9},
3.686256583514245*^9, 3.686262319966219*^9, 3.715370645892943*^9},
Background->GrayLevel[0.85]],
Cell["", "Subsubsection",
CellDingbat->None,
CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{Cell[TextData[StyleBox["2.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{
RowBox[{"p", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ",
RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]],
"None"]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9,
3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9,
3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9},
3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9,
3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9,
3.5417897124504557`*^9}, {3.5417925317651196`*^9,
3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9},
3.56053716793855*^9, 3.5605430857613792`*^9, {3.5605453972046156`*^9,
3.5605454021846223`*^9}, {3.5606182150525985`*^9, 3.560618219852605*^9}, {
3.5606182689326735`*^9, 3.560618269682675*^9}, {3.563574880419276*^9,
3.563574880869276*^9}, 3.5906378878042774`*^9, {3.6735672127378864`*^9,
3.6735672130019016`*^9}, {3.673926051730245*^9, 3.6739260531002474`*^9},
3.673928176102466*^9, 3.673928984947709*^9, 3.674055933577895*^9, {
3.686244746375188*^9, 3.6862447772449536`*^9}, {3.6862485607803593`*^9,
3.6862485643735647`*^9}, 3.6862498225925307`*^9, {3.686250132328247*^9,
3.6862501923236785`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t",
RowBox[{Cell[TextData[StyleBox["1.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{
RowBox[{"p", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ",
RowBox[{"n", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9,
3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9,
3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9},
3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9,
3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9,
3.5417897124504557`*^9}, {3.5417925317651196`*^9,
3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9},
3.56053716793855*^9, 3.5605430857613792`*^9, {3.5605453972046156`*^9,
3.5605454021846223`*^9}, {3.5606182150525985`*^9, 3.560618219852605*^9}, {
3.5606182689326735`*^9, 3.560618269682675*^9}, {3.563574880419276*^9,
3.563574880869276*^9}, 3.5906378878042774`*^9, {3.6735672127378864`*^9,
3.6735672130019016`*^9}, {3.673926051730245*^9, 3.6739260531002474`*^9},
3.673928176102466*^9, 3.673928984947709*^9, 3.674055933577895*^9, {
3.686244746375188*^9, 3.6862447772449536`*^9}, {3.6862485607803593`*^9,
3.6862485643735647`*^9}, 3.6862498225925307`*^9, {3.686250132328247*^9,
3.6862501923236785`*^9}, {3.686262709987788*^9, 3.686262724961809*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["1:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"p", "+", "1"}], "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ",
RowBox[{
RowBox[{"n", "-", "2"}], "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9},
3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9,
3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9,
3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9,
3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9,
3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9,
3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9,
3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9,
3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9,
3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9,
3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9,
3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9,
3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9,
3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9,
3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9,
3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9,
3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9,
3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9,
3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9,
3.674240830018931*^9}, {3.6742428103480234`*^9, 3.6742428376480627`*^9},
3.6742490420000324`*^9, {3.674252561790264*^9, 3.6742525837435026`*^9}, {
3.6742545123883486`*^9, 3.6742545280819764`*^9}, {3.674254570626251*^9,
3.674254576150661*^9}, {3.6742571845043764`*^9, 3.6742572170822334`*^9}, {
3.674259083173966*^9, 3.6742591071084085`*^9}, 3.6742752673409233`*^9, {
3.6744479948832116`*^9, 3.6744480044304285`*^9}, {3.674449485912306*^9,
3.6744494861803207`*^9}, {3.674450006388075*^9, 3.674450081605377*^9},
3.6862460432483644`*^9, {3.6862472572518015`*^9, 3.6862472572518015`*^9},
3.6862513572353077`*^9, {3.68625153508748*^9, 3.6862515352904916`*^9},
3.686251618470249*^9, {3.6862522579908276`*^9, 3.6862522579908276`*^9}, {
3.6862523250416627`*^9, 3.6862523250416627`*^9}, {3.686252656731634*^9,
3.6862526586417437`*^9}, 3.686252842627267*^9, 3.6862531823756995`*^9, {
3.686262735961825*^9, 3.6862627365818253`*^9}, {3.6862628000831447`*^9,
3.6862628018831472`*^9}, {3.7153707428354874`*^9, 3.7153707428354874`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell["Derivation: Integration by parts", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9,
3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9},
3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9},
3.6742405200764894`*^9, {3.6862460707699385`*^9, 3.686246074048126*^9}}],
Cell[TextData[{
"Basis: ",
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]", "x"],
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}],
RowBox[{"p", "+", "1"}]],
RowBox[{"b", " ", "n", " ",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}]]}], "\[Equal]",
RowBox[{
SuperscriptBox["x",
RowBox[{"n", "-", "1"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"]}]}]],
CellChangeTimes->{{3.6862461188256874`*^9, 3.6862461562288265`*^9}, {
3.686246198195227*^9, 3.6862462428367805`*^9}}]
}], "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9,
3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9},
3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9},
3.6742405200764894`*^9, {3.6862460707699385`*^9, 3.6862460813715453`*^9},
3.6862461871925983`*^9, {3.686246250354211*^9, 3.6862462555385075`*^9}, {
3.6862529627481375`*^9, 3.6862529662453375`*^9}}],
Cell[TextData[{
"Basis: ",
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]", "x"],
RowBox[{"(",
RowBox[{
SuperscriptBox["x",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}]], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}]}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}]}], " ",
SuperscriptBox["x",
RowBox[{"-", "n"}]], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], "+",
RowBox[{"d", " ",
SuperscriptBox["x",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}]], " ",
RowBox[{"Cos", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]],
CellChangeTimes->{{3.6862461188256874`*^9, 3.6862461562288265`*^9}, {
3.686246198195227*^9, 3.6862462428367805`*^9}}]
}], "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9,
3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9},
3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9},
3.6742405200764894`*^9, {3.6862460707699385`*^9, 3.6862460813715453`*^9},
3.6862461871925983`*^9, {3.686246250354211*^9, 3.6862462555385075`*^9}, {
3.6862464677596455`*^9, 3.6862464677596455`*^9}, {3.6862530063306303`*^9,
3.686253010021841*^9}, {3.6862628520152187`*^9, 3.686262884459265*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"p", "+", "1"}], "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ",
RowBox[{
RowBox[{"n", "-", "2"}], "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9,
3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9,
3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9,
3.6741706099872017`*^9}, {3.6741722516711006`*^9,
3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9,
3.674240834178937*^9}, {3.6742525970055265`*^9, 3.6742525970055265`*^9}, {
3.6742545927354903`*^9, 3.6742545927354903`*^9}, {3.6742572239774456`*^9,
3.6742572239774456`*^9}, {3.6742591349116573`*^9,
3.6742591349116573`*^9}, {3.674450086566661*^9, 3.674450086566661*^9}, {
3.6862472146613655`*^9, 3.6862472374746704`*^9}, {3.6862628103991594`*^9,
3.6862628103991594`*^9}, {3.7153707245434413`*^9, 3.7153707358940907`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}], "p"], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ", "\[IndentingNewLine]",
FractionBox[
RowBox[{
SuperscriptBox["x",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}],
RowBox[{"p", "+", "1"}]], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}],
RowBox[{"b", " ", "n", " ",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-",
RowBox[{
FractionBox[
RowBox[{" ",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}]}],
RowBox[{"b", " ", "n", " ",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}]],
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox["x",
RowBox[{"-", "n"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}],
RowBox[{"p", "+", "1"}]], " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-",
RowBox[{
FractionBox["d",
RowBox[{"b", " ", "n", " ",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}]],
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox["x",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox["x", "n"]}]}], ")"}],
RowBox[{"p", "+", "1"}]], " ",
RowBox[{"Cos", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9},
3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9,
3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9,
3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9},
3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9,
3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9,
3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9},
3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9,
3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9,
3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9,
3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9,
3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9,
3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9,
3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9,
3.674240907117041*^9}, {3.6742546069003153`*^9, 3.674254697031674*^9},
3.674257261715912*^9, {3.674275269431327*^9, 3.6742752708821297`*^9}, {
3.6744480052416296`*^9, 3.674448006162031*^9}, {3.6862460513448277`*^9,
3.686246061129388*^9}, {3.6862529006155834`*^9, 3.686252924695961*^9}, {
3.686262821222175*^9, 3.6862628347521944`*^9}},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell["Program code:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
3.492805165713872*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"a_", "+",
RowBox[{"b_.", "*",
RowBox[{"x_", "^", "n_"}]}]}], ")"}], "^", "p_"}], "*",
RowBox[{"Sin", "[",
RowBox[{"c_.", "+",
RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
"\n", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"x", "^",
RowBox[{"(",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}], ")"}]}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*",
RowBox[{"x", "^", "n"}]}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}], "*",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}], "/",
RowBox[{"(",
RowBox[{"b", "*", "n", "*",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n",
" ",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{"b", "*", "n", "*",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*",
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^",
RowBox[{"(",
RowBox[{"-", "n"}], ")"}]}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*",
RowBox[{"x", "^", "n"}]}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}], "*",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "-",
" ", "\n", " ",
RowBox[{
RowBox[{"d", "/",
RowBox[{"(",
RowBox[{"b", "*", "n", "*",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*",
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^",
RowBox[{"(",
RowBox[{
RowBox[{"-", "n"}], "+", "1"}], ")"}]}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*",
RowBox[{"x", "^", "n"}]}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"p", "+", "1"}], ")"}]}], "*",
RowBox[{"Cos", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
"\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}],
" ", "&&", " ",
RowBox[{"ILtQ", "[",